home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMMN2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  1KB  |  37 lines

  1. program DemoMenuTwo;
  2. {DEMMN2 - a customized menu}
  3.  
  4. USES  DOS, CRT,
  5.       totMENU, totFAST, totLOOK, totSYS;
  6.  
  7. var
  8.   Main: MoveMenuOBJ;
  9.   Choice: byte;
  10. begin
  11.    Screen.PartClear(1,1,80,24,white,'░'); {paint the screen}
  12.    Screen.PartClear(1,24,80,25,30,' ');
  13.    with Main do
  14.    begin
  15.       Init;
  16.       AddItem('');
  17.       AddFullItem(' ~1~   Load a file          ',1,49,'Loads a new database file',nil);
  18.       AddFullItem(' ~2~   Edit Date            ',2,50,'Full screen editing of data base entries',nil);
  19.       AddFullItem(' ~3~   Save the file        ',3,51,'Save database file to disk',nil);
  20.       AddFullItem(' ~4~   Change configuration ',4,52,'Modify colors and defaults',nil);
  21.       AddItem('');
  22.       AddFullItem(' ~Q~   Quit                 ',99,81,'Exit system and return to DOS',nil);
  23.       SetStyleTitle(6,'Main Menu');
  24.       SetActiveItem(2);
  25.       SetMessageXY(25,25);
  26.       SetGap(1);
  27.       Win^.SetClose(False);
  28.       Win^.SetColors(75,79,79,75);
  29.       SetColors(31,30,79,78,72);
  30.       Choice := Activate;
  31.       Done;
  32.    end;
  33.    if Choice = 0 then
  34.       Writeln('You escaped')
  35.    else
  36.       Writeln('You selected menu item ',Choice);
  37. end.